home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / FASTER DOS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  995b  |  9 lines

  1. 10  REM  F A S T E R  D O S
  2. 11  REM  A PROGRAM TO INCREASE THE LOAD/RUN/BLOAD/BRUN SPEED OF DOS 3.3
  3. 20  IF  PEEK(977) + PEEK(978) -16 * INT( PEEK(978)/16) < >191 +13  THEN  PRINT : PRINT  CHR$(7)"INCORRECT DOS POINTERS": PRINT "PLEASE REBOOT AND RERUN FASTER": END 
  4. 30  FOR I = 768 TO 865: READ B: POKE I,B: NEXT I
  5. 40  DATA  24,173,210,3,105,34,141,19,3,141,53,3,162,3,189,24,3,157,33,191,202,16,247,96,234,32,28,3,134,24,165,68,201,3,144,41,201,34,208,17,165,25,201,14,208,11,162,3
  6. 50  DATA  189,77,3,157,33,191,202,16,247,165,63,208,4,169,255,133,25,230,25,166,25,189,82,3,133,63,166,24,96,230,63,165,63,96,1,2,5,6,9,10,13,14,15,3,4,7,8,11,12,16
  7. 60 T = 0: FOR I = 768 TO 865:T = T + PEEK(I): NEXT I: IF T < >8650  THEN  PRINT : PRINT  CHR$(7)"DATA STATEMENT ERROR (LINES 40-50)": END 
  8. 70  CALL 768
  9. 80  PRINT : PRINT "THE PATCH HAS BEEN MADE TO THE INIT": PRINT "FUNCTION": PRINT : PRINT "YOU MAY NOW LOAD YOUR HELLO PROGRAM": PRINT "AND INITIALIZE A DISK WITH 'FASTER'": PRINT "SECTOR SPACING"